<script>on mouseDownget meask "Enter Client Number:" with the number of this cardif it = "" then exit mouseDownif it < 10 then put "000" into leaderelse if it < 100 then put "00" into leaderelse if it < 1000 then put "0" into leaderelse put "" into leaderput leader & (it+1-1) into fld "client#"end mouseDown</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>402</left>
<top>189</top>
<right>470</right>
<bottom>233</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>21437</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Add Client</name>
<script>on mouseUpput 1 into xrepeatgo lastask "Enter client name for ID# " & the number of this card+1if it is "" then exit repeatdoMenu "New Card"put "(-;Add Name;Delete Name" into fld "contacts"put it into fld "Name"get the number of this cdif it < 10 then put "000" before itelse if it < 100 then put "00" before itelse if it < 1000 then put "0" before itput it into fld "Client#"ask "Enter line 1 of address:"put it into line 1 of fld "addressask "Enter line 2 of address:"put it into line 2 of fld "addressask "Enter line 3 of address:"put it into line 3 of fld "addressask "Enter Phone Number for " & fld "Name"if it is "" then exit repeatput it into fld "Phone"if x < 2 thenanswer "Continue adding new clients to database?" with "Cancel" or "OK"if it is "Cancel" then exit repeatput x + 1 into xend ifend repeatend mouseUp</script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>159</left>
<top>96</top>
<right>334</right>
<bottom>141</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Address</name>
<script></script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>40</left>
<top>218</top>
<right>125</right>
<bottom>306</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Helvetica</font>
<textSize>12</textSize>
<textStyle>extend</textStyle>
<textHeight>20</textHeight>
<name>Jobs</name>
<script>on mouseUplock screenget the clickLocset the lockText of me to falseclick at itput the clickline into theLineput line (word 2 of theLine) of me into cardNoif cardNo is empty then exit mouseUpanswer "Go to job number" && cardNo & "?" with "Cancel" or "OK"if it is "OK" thenpush cardgo card cardNo of stack "Job stack"end ifset the lockText of me to trueunlock screen with zoom outend mouseUp</script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>157</left>
<top>365</top>
<right>204</right>
<bottom>395</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>902</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpif the shiftKey is down thenvisual effect iris open to whitego firstelsevisual effect wipe rightgo prevend ifend mouseUp</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>320</left>
<top>365</top>
<right>367</right>
<bottom>395</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26425</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpif the shiftKey is down thenvisual effect iris open to blackgo lastelsevisual effect wipe leftgo nextend ifend mouseUp</script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>402</left>
<top>120</top>
<right>470</right>
<bottom>163</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>17264</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Find...</name>
<script>on mouseUpAnswer "Find.." with "Client Name" or "Client No." or "Cancel"if it is "Client Name" thenask "Enter Client Name:"put "find chars" && it && "in fld id 4"find chars it in fld "Name"else if it is "Client No." thenask "Enter Client No.:"if it is "" then exit mouseUpif fld "Client#" of card 1 = 1 thengo card itelsego firstif it < 10 then put "000" before itelse if it < 100 then put "00" before itelse if it < 1000 then put "0" before itfind it in fld "client#"end ifend ifend mouseUp</script>
</part>
<part>
<id>22</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>444</left>
<top>368</top>
<right>485</right>
<bottom>394</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>32670</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>show all cards</name>
<script>on mouseUpshow all cardsend mouseUp</script>
<script>on mouseUplock screenput "" into jobListpush cardput fld "Client#" into clientNogo stack "job stack"go firstput 1 into lastCardNorepeatset the cursor to busyfind clientNo in fld "client#"if the number of this card = 1 thenif clientNo is in fld "client#" thenput fld "number" & return after jobListgo nextput the number of this card into lastCardNonext repeatend ifelse if the number of this card <= lastCardNo then exit repeatput the number of this card into lastCardNoif the result is not empty then exit repeatput fld "number" & return after jobListend repeatpop cardput jobList into fld "jobs"end mouseUp</script>
</part>
<part>
<id>26</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>402</left>
<top>48</top>
<right>470</right>
<bottom>92</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>20186</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Sort</name>
<script>on mouseUpanswer "Sort by:" with "Last Name" or "Number" or "Cancel"if it is "Cancel" then exit mouseUpelse if it is "Last Name" then sort by last word of fld "Name"else if it is "Number" then sort by fld "Client#"end mouseUp</script>
</part>
<part>
<id>28</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>205</left>
<top>369</top>
<right>322</right>
<bottom>392</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Go to Job Stack</name>
<script>on mouseUplock screengo to stack "Job Stack"go lastunlock screen with visual effect zoom outend mouseUp</script>
<script>on mouseDownget topleft of meput fld "contacts" into menuListget HpopUpMenu (MenuList,checkMark,item 2 of it,item 1 of it)put item 1 of it into itif it is empty then exit mouseDownif it is "Add Name" thenask "Enter new name:"if it is empty then exit mouseDownput it & ";" before fld "contacts"put it into meelse if it is "Delete Name" thenget offset("Add Name",fld "contacts")put itif it = 4 thenbeepanswer "There are no names in the list to delete!"exit mouseDownend ifshow fld "backboard"show fld "popUp"elseput it into meend ifend mouseDown</script>
</part>
<part>
<id>37</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>208</left>
<top>254</top>
<right>469</right>
<bottom>341</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <true /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>14</textHeight>
<name>extra info</name>
<script></script>
</part>
<part>
<id>38</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>159</left>
<top>151</top>
<right>405</right>
<bottom>191</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>contacts</name>
<script></script>
</part>
<part>
<id>39</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>85</left>
<top>174</top>
<right>383</right>
<bottom>236</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>backboard</name>
<script></script>
</part>
<part>
<id>40</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>253</left>
<top>194</top>
<right>367</right>
<bottom>213</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>popUp</name>
<script>on mouseDownlock screenput "" into menuListget topleft of meput offset("Add Name",fld "contacts") - 4 into theLengthrepeat with x = 1 to theLengthput char x of fld "contacts" after menuListend repeatput "(-;Cancel" after menuListget HpopUpMenu (MenuList,checkMark,item 2 of it,item 1 of it)put item 1 of it into theNameif theName is empty thenexit mouseDownelse if theName is "Cancel" thenhide mehide fld "backboard"exit mouseDownend ifAnswer "Delete " & theName & "?" with "OK" or "Cancel"if it is "Cancel" thenhide mehide fld "backboard"elseif it is in fld "contact name" then put "" into fld "contact name"put offset(theName,fld "contacts") into startput the length of theName + start into finishrepeat with x = start to finishput "" into char start of fld "contacts"end repeatend ifhide mehide fld "backboard"end mouseDown</script>
</part>
<part>
<id>43</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>85</left>
<top>107</top>
<right>383</right>
<bottom>169</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>backboard2</name>
<script></script>
</part>
<part>
<id>44</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>254</left>
<top>128</top>
<right>368</right>
<bottom>147</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>popUp2</name>
<script>on mouseDownglobal theNamelock screenput "" into menuListget topleft of meput offset("Add Name",fld "contacts") - 4 into theLengthrepeat with x = 1 to theLengthput char x of fld "contacts" after menuListend repeatput ";(-;New Contact;No contact" after menuListget HpopUpMenu (MenuList,checkMark,item 2 of it,item 1 of it)put item 1 of it into theNameif it is empty then exit mouseDownif theName is "New Contact" thenask "Enter new Contact:"if it is empty thenexit mouseDownelse put it into theNameput theName & ";" before fld "contacts"end ifhide mehide fld "backboard2"suck -- handler in bg scriptend mouseDown</script>
<text><span class="style4"> FreeLancer</span><span class="style5"> By Jeff AbreschFreeLancer </span><span class="style3">is a job management tool written for the graphic arts service industry, particularly desktop publishers and graphic artists working out of their homes.</span><span class="style6">What it does.</span><span class="style7">FreeLancer simultaneously keeps track of clients and individual jobs, allowing for archival and easy retrival of job and client history. In addition, it creates and archives invoices for each job.</span><span class="style6">How it works.</span><span class="style7">To begin using FreeLancer, click on the "new job" button. FreeLancer asks for the client or company name and searches for it in the client stack. You need not enter the full name--this is only a search string, and if the client is already in the client stack, the full name will automaatically be used. If it is not found, you may create a new invoice, at which point FreeLancer will ask you to re-enter the full client name.If the client is new, you are prompted to enter the address, phone number, and contact for that client. When the Contact prompt appears, use the pop-up menu to choose a new or existing contact. Once this is done, freeLancer will paste all relevant information into the new job you have created. If the client already exists, you will be asked to choose a contact via a pop up menu. Choose either a new contact, an existing one, or No Contact. FreeLancer will then paste this information into the new job.</span><span class="style6">Editing jobs and clients</span><span class="style7">At any time, you may edit the job information of any job, or any of the information for a client. Use the "Find" button to locate jobs and/or clients.IMPORTANT: NEVER delete a client or job card. The job stack finds jobs by job number, which MUST correspond to the card number. Deleting a card or sorting the stack by something other than the job number will screw this up.If one of your clients goes out of business or becomes an ex-client, put a question mark in place of the Client/Company name. The next time you create a new client, that client will be replaced. Again, do not delete the card for that client to avoid messing up the numbering system.</span><span class="style6">Invoicing</span><span class="style7">To create an invoice, simply press the "show billing" button on the job stack. Then press the category buttons on the right to fill out the invoice. When payment is received for that invoice, press the "PAID" button.</span><span class="style8">Printing the invoice</span><span class="style7">Once the invoice is created, press the "Print Invoice" button. You are given a choice of printing an invoice for this job or all jobs. If you choose all jobs, you have a choice of printing "Received" invoices (those for which payment has been received), "Receivable" (waiting for payment) invoices, or both.I hope you enjoy using FreeLancer. If you do, please send a $20.00 shareWare fee to the address below. I will keep you in touch with updates and offer additional support. Jeff Abresch2324 19th StreetBoulder, CO 80304America Online: Flatirons</span><span class="style3"></span></text>
</content>
<name></name>
<script>--------suck mechanismon sucklock screenglobal theNameput fld "name" into clientNameput fld "Client#" into clientNoput fld "phone" into phoneput fld "address" into addressput fld "contacts" into contactspop cardput clientName into fld "Client Name"put clientNo into fld "Client#"put phone into fld "phone"put address into fld "address"put theName into fld "contact name"put contacts into fld "contacts"unlock screen with visual effect zoom outend suck</script>
(CDRM1080320)(1993).iso/FILES/DTP/A-F/FreeLancer1.1.cpt/FreeLancer 1.1/Client Stack/BMAP_3650.png){kind=link}